use Modern::Perl;
use Mail::Box::Manager;
use Mojo::IOLoop;

my $manager = Mail::Box::Manager->new;
my $folder;

#Mojo::IOLoop->timer(10=>sub{Mojo::IOLoop->stop});
#Mojo::IOLoop->start;
$folder = $manager->open(folder => 'imap4://bixichao:abc@mail.berrygenomics.com/test', retry => 1);

if ($folder) {
  print "Inbox right!!\n";
} else {
  print "Inbox wrong!!\n";
}
